clear

use "consolidated_elec_coal_final.dta"

*TABLE 2 (Total Electrification Rates) and Table 3 (Rural and Urban Electrification Rates)
foreach i in elecrate_total elecrate_urban elecrate_rural{
eststo clear
eststo:reg ipo_`i' l1ipo_`i' log_perc_total_com loggdpcapita i.year , r cluster(cid)
eststo:reg ipo_`i' l1ipo_`i' log_perc_total_com loggdpcapita log_wb_popdensityK pop_urban_rate i.year, r cluster(cid)
eststo:reg ipo_`i' l1ipo_`i' log_perc_total_com loggdpcapita log_wb_popdensityK pop_urban_rate loghydropowercapitaK wb_natres_rents polity2 i.year , r cluster(cid)
eststo:reg ipo_`i' l1ipo_`i' log_perc_total_com loggdpcapita log_wb_popdensityK pop_urban_rate loghydropowercapitaK rents_ff polity2 i.year , r cluster(cid)
eststo:reg ipo_`i' l1ipo_`i' log_perc_total_com loggdpcapita log_wb_popdensityK pop_urban_rate loghydropowercapitaK natgas_rent oil_rent coal_rent polity2 i.year , r cluster(cid)


eststo:areg ipo_`i' l1ipo_`i' log_perc_total_com loggdpcapita i.year , absorb(cid) r
eststo:areg ipo_`i' l1ipo_`i' log_perc_total_com loggdpcapita log_wb_popdensityK pop_urban_rate i.year, absorb(cid) r
eststo:areg ipo_`i' l1ipo_`i' log_perc_total_com loggdpcapita log_wb_popdensityK pop_urban_rate loghydropowercapitaK wb_natres_rents polity2 i.year , absorb(cid) r
eststo:areg ipo_`i' l1ipo_`i' log_perc_total_com loggdpcapita log_wb_popdensityK pop_urban_rate loghydropowercapitaK rents_ff polity2 i.year , absorb(cid) r
eststo:areg ipo_`i' l1ipo_`i' log_perc_total_com loggdpcapita log_wb_popdensityK pop_urban_rate loghydropowercapitaK coal_rent natgas_rent oil_rent polity2 i.year , absorb(cid) r
}

*TABLE A2-A4
eststo clear
eststo: reg ipo_elecrate_total log_total_cumul1, r cluster(cid)
eststo: reg ipo_elecrate_rural log_total_cumul1, r cluster(cid)
eststo: reg ipo_elecrate_urban log_total_cumul1, r cluster(cid)

eststo clear
eststo: areg ipo_elecrate_total log_total_cumul1,  absorb(cid) r cluster(cid)
eststo: areg ipo_elecrate_rural log_total_cumul1,  absorb(cid) r cluster(cid)
eststo: areg ipo_elecrate_urban log_total_cumul1,  absorb(cid) r cluster(cid)

eststo clear
eststo: areg ipo_elecrate_total log_total_cumul1 i.year,  absorb(cid) r cluster(cid)
eststo: areg ipo_elecrate_rural log_total_cumul1 i.year,  absorb(cid) r cluster(cid)
eststo: areg ipo_elecrate_urban log_total_cumul1 i.year,  absorb(cid) r cluster(cid)


*TABLE A5:Democracies Sub-Sample
gen demo = 0 if polity2!=.
replace demo=1 if polity2>=6 & polity2!=.

preserve 

keep if demo==1

foreach i in elecrate_total elecrate_urban elecrate_rural{
eststo clear
eststo:reg ipo_`i' l1ipo_`i' log_perc_total_com loggdpcapita i.year , r cluster(cid)
eststo:reg ipo_`i' l1ipo_`i' log_perc_total_com loggdpcapita log_wb_popdensityK pop_urban_rate i.year, r cluster(cid)
eststo:reg ipo_`i' l1ipo_`i' log_perc_total_com loggdpcapita log_wb_popdensityK pop_urban_rate loghydropowercapitaK wb_natres_rents polity2 i.year , r cluster(cid)
eststo:reg ipo_`i' l1ipo_`i' log_perc_total_com loggdpcapita log_wb_popdensityK pop_urban_rate loghydropowercapitaK rents_ff polity2 i.year , r cluster(cid)
eststo:reg ipo_`i' l1ipo_`i' log_perc_total_com loggdpcapita log_wb_popdensityK pop_urban_rate loghydropowercapitaK natgas_rent oil_rent coal_rent polity2 i.year , r cluster(cid)


eststo:areg ipo_`i' l1ipo_`i' log_perc_total_com loggdpcapita i.year , absorb(cid) r
eststo:areg ipo_`i' l1ipo_`i' log_perc_total_com loggdpcapita log_wb_popdensityK pop_urban_rate i.year, absorb(cid) r
eststo:areg ipo_`i' l1ipo_`i' log_perc_total_com loggdpcapita log_wb_popdensityK pop_urban_rate loghydropowercapitaK wb_natres_rents polity2 i.year , absorb(cid) r
eststo:areg ipo_`i' l1ipo_`i' log_perc_total_com loggdpcapita log_wb_popdensityK pop_urban_rate loghydropowercapitaK rents_ff polity2 i.year , absorb(cid) r
eststo:areg ipo_`i' l1ipo_`i' log_perc_total_com loggdpcapita log_wb_popdensityK pop_urban_rate loghydropowercapitaK coal_rent natgas_rent oil_rent polity2 i.year , absorb(cid) r
}

restore

*TABLE A6:Autocracies Sub-Sample

preserve 

keep if demo==0

foreach i in elecrate_total elecrate_urban elecrate_rural{
eststo clear
eststo:reg ipo_`i' l1ipo_`i' log_perc_total_com loggdpcapita i.year , r cluster(cid)
eststo:reg ipo_`i' l1ipo_`i' log_perc_total_com loggdpcapita log_wb_popdensityK pop_urban_rate i.year, r cluster(cid)
eststo:reg ipo_`i' l1ipo_`i' log_perc_total_com loggdpcapita log_wb_popdensityK pop_urban_rate loghydropowercapitaK wb_natres_rents polity2 i.year , r cluster(cid)
eststo:reg ipo_`i' l1ipo_`i' log_perc_total_com loggdpcapita log_wb_popdensityK pop_urban_rate loghydropowercapitaK rents_ff polity2 i.year , r cluster(cid)
eststo:reg ipo_`i' l1ipo_`i' log_perc_total_com loggdpcapita log_wb_popdensityK pop_urban_rate loghydropowercapitaK natgas_rent oil_rent coal_rent polity2 i.year , r cluster(cid)


eststo:areg ipo_`i' l1ipo_`i' log_perc_total_com loggdpcapita i.year , absorb(cid) r
eststo:areg ipo_`i' l1ipo_`i' log_perc_total_com loggdpcapita log_wb_popdensityK pop_urban_rate i.year, absorb(cid) r
eststo:areg ipo_`i' l1ipo_`i' log_perc_total_com loggdpcapita log_wb_popdensityK pop_urban_rate loghydropowercapitaK wb_natres_rents polity2 i.year , absorb(cid) r
eststo:areg ipo_`i' l1ipo_`i' log_perc_total_com loggdpcapita log_wb_popdensityK pop_urban_rate loghydropowercapitaK rents_ff polity2 i.year , absorb(cid) r
eststo:areg ipo_`i' l1ipo_`i' log_perc_total_com loggdpcapita log_wb_popdensityK pop_urban_rate loghydropowercapitaK coal_rent natgas_rent oil_rent polity2 i.year , absorb(cid) r
}

restore

*Table A7: Dynamic Model Estimations using Non-logarithmized Per Capita Net Commissioned Coal Capacity

*replace perc_total_com = perc_total_com/1000
label var perc_total_com "Per Capita Net Commissioned Capacity"

foreach i in elecrate_total elecrate_urban elecrate_rural{
eststo clear
eststo:reg ipo_`i' l1ipo_`i' perc_total_com loggdpcapita i.year , r cluster(cid)
eststo:reg ipo_`i' l1ipo_`i' perc_total_com loggdpcapita log_wb_popdensityK pop_urban_rate i.year , r cluster(cid)
eststo:reg ipo_`i' l1ipo_`i' perc_total_com loggdpcapita log_wb_popdensityK pop_urban_rate loghydropowercapitaK wb_natres_rents polity2 i.year , r cluster(cid)
eststo:reg ipo_`i' l1ipo_`i' perc_total_com loggdpcapita log_wb_popdensityK pop_urban_rate loghydropowercapitaK rents_ff polity2 i.year , r cluster(cid)
eststo:reg ipo_`i' l1ipo_`i' perc_total_com loggdpcapita log_wb_popdensityK pop_urban_rate loghydropowercapitaK natgas_rent oil_rent coal_rent polity2 i.year , r cluster(cid)


eststo:areg ipo_`i' l1ipo_`i' perc_total_com loggdpcapita i.year , absorb(cid) r
eststo:areg ipo_`i' l1ipo_`i' perc_total_com loggdpcapita log_wb_popdensityK pop_urban_rate i.year  , absorb(cid) r
eststo:areg ipo_`i' l1ipo_`i' perc_total_com loggdpcapita log_wb_popdensityK pop_urban_rate loghydropowercapitaK wb_natres_rents polity2 i.year , absorb(cid) r
eststo:areg ipo_`i' l1ipo_`i' perc_total_com loggdpcapita log_wb_popdensityK pop_urban_rate loghydropowercapitaK rents_ff polity2 i.year , absorb(cid) r
eststo:areg ipo_`i' l1ipo_`i' perc_total_com loggdpcapita log_wb_popdensityK pop_urban_rate loghydropowercapitaK coal_rent natgas_rent oil_rent polity2 i.year , absorb(cid) r
}


*Table A8: Dynamic Model Estimations using Levels of Net Commissioned Coal Capacity

replace total_com =total_com /1000

foreach i in elecrate_total elecrate_urban elecrate_rural{
eststo clear
eststo:reg ipo_`i' l1ipo_`i' total_com loggdpcapita i.year , r cluster(cid)
eststo:reg ipo_`i' l1ipo_`i' total_com loggdpcapita log_wb_popdensityK pop_urban_rate i.year , r cluster(cid)
eststo:reg ipo_`i' l1ipo_`i' total_com loggdpcapita log_wb_popdensityK pop_urban_rate loghydropowercapitaK wb_natres_rents polity2 i.year , r cluster(cid)
eststo:reg ipo_`i' l1ipo_`i' total_com loggdpcapita log_wb_popdensityK pop_urban_rate loghydropowercapitaK rents_ff polity2 i.year , r cluster(cid)
eststo:reg ipo_`i' l1ipo_`i' total_com loggdpcapita log_wb_popdensityK pop_urban_rate loghydropowercapitaK natgas_rent oil_rent coal_rent polity2 i.year , r cluster(cid)


eststo:areg ipo_`i' l1ipo_`i' total_com loggdpcapita i.year , absorb(cid) r
eststo:areg ipo_`i' l1ipo_`i' total_com loggdpcapita log_wb_popdensityK pop_urban_rate i.year , absorb(cid) r
eststo:areg ipo_`i' l1ipo_`i' total_com loggdpcapita log_wb_popdensityK pop_urban_rate loghydropowercapitaK wb_natres_rents polity2 i.year , absorb(cid) r
eststo:areg ipo_`i' l1ipo_`i' total_com loggdpcapita log_wb_popdensityK pop_urban_rate loghydropowercapitaK rents_ff polity2 i.year , absorb(cid) r
eststo:areg ipo_`i' l1ipo_`i' total_com loggdpcapita log_wb_popdensityK pop_urban_rate loghydropowercapitaK coal_rent natgas_rent oil_rent polity2 i.year , absorb(cid) r
}
